home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Dev / lang / amigatalk.lha / intuition / Colors.st < prev    next >
Text File  |  2003-12-02  |  6KB  |  202 lines
  1. "------------------------------------------------------------------"
  2. " Colors Class implements control of Amiga Color registers         "
  3. " Chances are that Glyph is the wrong parent class for this class. "
  4. "------------------------------------------------------------------"
  5.  
  6. Class Colors :Glyph ! private parentObj numberOfColors !
  7. [
  8.    dispose
  9.  
  10.       <primitive 184 0 private>.
  11.       
  12.       <primitive 250 5 0 private>.
  13.       
  14.       ^ nil
  15. |
  16.    loadColors: howMany from: colorMapFileName
  17.  
  18.       <primitive 184 2 parentObj howMany colorMapFileName>
  19. |
  20.    getColor: srcType from: srcObject which: n  
  21.  
  22.       " srcType 1 is WindowObject, all else is colorMapObject: "
  23.  
  24.       ^ <primitive 184 3 srcType srcObject n>
  25. |
  26.    setColorReg: n red: r green: g blue: b
  27.  
  28.       <primitive 184 4 parentObj n r g b>
  29. |
  30.    setMapValue: srcType from: srcObject num: n red: r green: g blue: b
  31.  
  32.       " srcType 1 is WindowObject, all else is colorMapObject: "
  33.  
  34.       <primitive 184 5 srcType srcObject n r g b>
  35. |
  36.    copyMap: sourceObject to: destObject sourceType: srcType
  37.  
  38.       " srcType 1 is WindowObject  (dest is ColorMap)
  39.       * all else is colorMapObject (dest is WindowObject): 
  40.       "
  41.  
  42.       <primitive 184 6 sourceObject destObject srcType>
  43. |
  44.    saveColorsTo: colorMapFileName
  45.  
  46.       <primitive 184 7 parentObj colorMapFileName>
  47. | 
  48.    makeColorMap: numColors
  49.  
  50.       private        <- <primitive 184 1 private numColors>.
  51.  
  52.       numberOfColors <- numColors.
  53.       
  54.       ^ self
  55. |
  56.    new: windowObject
  57.  
  58.       parentObj  <- windowObject.    "cmap <- Colors new: windowObj"
  59.       private    <- nil.             " makeColorMap: will initialize this"
  60.  
  61.       ^ self
  62. ]
  63.  
  64. "------------------------------------------------------------------"
  65. " LargeColors Class implements control of Amiga Color registers    "
  66. " using full 32-bit values for red, green & blue.                  "
  67. " Chances are that Glyph is the wrong parent class for this class. "
  68. "------------------------------------------------------------------"
  69.  
  70. Class LargeColors :Glyph ! private private2 parentObj numberOfColors !
  71. [
  72.    dispose
  73.  
  74.       <primitive 184 0 private>.
  75.       
  76.       <primitive 250 5 0 private>.
  77.  
  78.       (private2 notNil)
  79.          ifTrue: [ <primitive 250 5 0 private2> ].
  80.       
  81.       ^ nil
  82. |
  83.    copyMap: sourceObject to: destObject sourceType: srcType
  84.  
  85.       " srcType 1 is WindowObject  (dest is ColorMap)
  86.       * all else is colorMapObject (dest is WindowObject): 
  87.       "
  88.  
  89.       <primitive 184 6 sourceObject destObject srcType>
  90. |
  91.    saveColorsTo: colorMapFileName
  92.  
  93.       <primitive 184 7 parentObj colorMapFileName>
  94. |
  95.    findColorMatch: red green: green blue: blue
  96.     
  97.       " Find the closest matching color to the RGB values given: "
  98.  
  99.       ^ <primitive 184 8 red green blue private> 
  100. |
  101.    obtainBestPenMatch: red green: green blue: blue tags: tagArray
  102.    
  103.       " Find the closest matching color or allocate one.
  104.       *
  105.       * Valid values for the tagArray are:
  106.       * OBP_Precision - specifies the desired precision for the
  107.       *                 match. Should be PRECISION_GUI, PRECISION_ICON, or
  108.       *                 PRECISION_IMAGE or PRECISION_EXACT.
  109.       *                 Defaults to PRECISION_IMAGE.
  110.       *
  111.       * OBP_FailIfBad - specifies that you want obtainBestPenMatch: to return 
  112.       *                 a failure value if there is not a color within the
  113.       *                 given tolerance, instead of returning the closest color.
  114.       *                 With OBP_FailIfBad==FALSE, obtainBestPen: will only fail
  115.       *                 if the ViewPort contains no sharable colors.
  116.       *                 Defaults to FALSE.
  117.       *
  118.       * NOTE: be sure to use the releasePen: method on the
  119.       * returned value from this method when you are done with it! 
  120.       "
  121.       
  122.       ^ <primitive 184 9 red green blue tagArray private>
  123. |
  124.    obtainPen: red green: green blue: blue flags: flags
  125.    
  126.       " Obtain a free palette entry (if any are left).
  127.       * NOTE: be sure to use the releasePen: method on the
  128.       * returned value from this method when you are done with it! 
  129.       "
  130.       
  131.       ^ <primitive 184 10 red green blue flags private>
  132. |
  133.    releasePen: whichPen
  134.    
  135.       " You MUST use this method for each pen Number returned from
  136.       * obtainBestPenMatch:green:blue:tags: & 
  137.       * obtainPen:green:blue:flags: methods when you are done with
  138.       * them:
  139.       "
  140.       <primitive 184 14 whichPen private> 
  141. |
  142.    getRGB32: firstPen howMany: numColors into: colorArray
  143.    
  144.       " Get a series of color register values & palce them in 
  145.       * colorArray.
  146.       *
  147.       * WARNING:  The size of colorArray MUST be at least 
  148.       * 3 * numColors in length or this method will
  149.       * fail with error messages:
  150.       "
  151.       <primitive 184 11 firstPen numColors colorArray private>
  152. |
  153.    makeColorTable: firstPen howMany: numColors with: colorArray
  154.    
  155.       " Create & format an Array that can be used by the 
  156.       * loadRGB32 method (This is NOT the same as the colorArray 
  157.       * found in the getRGB32:howMany:into: as far as I know!) 
  158.       *
  159.       * The colorArray you supply to this method consists of:
  160.       *
  161.       *    red1 (32-bit), green1 (32-bit), blue1 (32-bit),
  162.       *    ...
  163.       *    redn (32-bit), greenn (32-bit), bluen (32-bit)
  164.       * Triplets
  165.       "
  166.       ^ private2 <- <primitive 184 12 firstPen numColors colorArray>
  167. |
  168.    loadRGB32
  169.    
  170.       " Set a series of color registers for this instance using the
  171.       * colorTable obtained from makeColorTable:howMany:with:
  172.       * method:
  173.       "  
  174.       <primitive 184 13 parentObj private2>
  175. |
  176.    attachExtraPaletteInfo
  177.    
  178.       " Allocate & attach extra palette info to the ColorMap
  179.       * (The dispose method will take care of this): 
  180.       "
  181.       <primitive 184 15 private parentObj>
  182. |
  183.    makeColorMap: numColors
  184.  
  185.       private        <- <primitive 184 1 private numColors>.
  186.  
  187.       numberOfColors <- numColors.
  188.       
  189.       ^ self
  190. |
  191.    new: windowObject
  192.  
  193.       parentObj <- windowObject. "cmap <- Colors new: windowObj"
  194.  
  195.       private   <- nil. " makeColorMap: will initialize this"
  196.       
  197.       private2  <- nil. " makeColorTable:howMany:with: will initialize this"
  198.       
  199.       ^ self
  200. ]
  201.  
  202.